inherited FrmRel_Demonstrativo: TFrmRel_Demonstrativo
  Left = 172
  Top = 171
  Caption = 'Relat'#243'rio demonstrativos'
  ClientHeight = 432
  ClientWidth = 586
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 0
    Width = 586
    Height = 365
    object Label11: TLabel
      Left = 260
      Top = 5
      Width = 56
      Height = 14
      Caption = 'Hist'#243'ricos'
      Font.Charset = ANSI_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 9
      Top = 5
      Width = 88
      Height = 14
      Caption = 'Demonstrativos'
      Font.Charset = ANSI_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 35
      Top = 155
      Width = 132
      Height = 14
      Caption = 'Empresa / Conta / Banco'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object BtnInsereBanco: TSpeedButton
      Left = 8
      Top = 152
      Width = 25
      Height = 18
      Hint = 'Insere um novo hist'#243'rico na lista.'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      Layout = blGlyphRight
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = BtnInsereBancoClick
    end
    object Label7: TLabel
      Left = 152
      Top = 144
      Width = 273
      Height = 14
      Caption = 'Arquivo texto   Caminho+cod_demonstracao+.ban'
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object ListaHistorico: TCheckListBox
      Left = 260
      Top = 20
      Width = 317
      Height = 125
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 1
    end
    object ListaDemonstrativo: TCheckListBox
      Left = 8
      Top = 20
      Width = 245
      Height = 125
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 0
      OnClick = ListaDemonstrativoClick
      OnExit = ListaDemonstrativoExit
    end
    object EdtTelaImpri: TRadioGroup
      Left = 370
      Top = 240
      Width = 207
      Height = 33
      Caption = 'Sair em '
      Columns = 2
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ItemIndex = 0
      Items.Strings = (
        'Tela'
        'Impressora')
      ParentFont = False
      TabOrder = 4
      OnEnter = EdtTelaImpriEnter
    end
    object GroupBox1: TGroupBox
      Left = 370
      Top = 157
      Width = 207
      Height = 76
      Caption = 'Per'#237'odo'
      Font.Charset = ANSI_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      object Label2: TLabel
        Left = 21
        Top = 16
        Width = 54
        Height = 14
        Caption = 'Iniciar em'
      end
      object Label3: TLabel
        Left = 8
        Top = 48
        Width = 68
        Height = 14
        Caption = 'Encerrar em'
      end
      object dtiniciar: TDateEdit
        Left = 81
        Top = 12
        Width = 100
        Height = 21
        NumGlyphs = 2
        TabOrder = 0
      end
      object dtencerrar: TDateEdit
        Left = 81
        Top = 44
        Width = 100
        Height = 21
        NumGlyphs = 2
        TabOrder = 1
      end
    end
    object ListaBanco: TCheckListBox
      Left = 7
      Top = 169
      Width = 354
      Height = 103
      ItemHeight = 14
      TabOrder = 2
    end
  end
  inherited Panel2: TPanel
    Top = 365
    Width = 586
    inherited bimprimir: TFlatButton
      OnClick = bimprimirClick
    end
    inherited btncancelar: TFlatButton
      Left = 219
      OnClick = btncancelarClick
    end
    inherited btnfechar: TFlatButton
      Left = 423
    end
  end
  inherited sb: TStatusBar
    Top = 413
    Width = 586
  end
  inherited Panel3: TPanel
    Left = 520
    Top = 192
    Width = 377
    Height = 233
    Align = alNone
    BevelInner = bvRaised
    BevelWidth = 2
    BorderWidth = 1
    Visible = False
    inherited Label4: TLabel
      Top = 15
      Width = 193
      Height = 20
      Caption = 'Selecione uma empresa'
      Font.Color = clRed
      Font.Height = -16
    end
    inherited ListaEmp: TCheckListBox
      Left = 320
      Top = 16
      Width = 33
      Height = 25
      Visible = False
    end
    object DbgEmpresa: TDBGrid
      Left = 5
      Top = 40
      Width = 367
      Height = 188
      Hint = 'DUPLO CLIQUE / ENTER para selecionar uma empresa'
      Align = alBottom
      Color = clInfoBk
      DataSource = DsEmpresa
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DbgEmpresaDblClick
      OnKeyDown = DbgEmpresaKeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'Codigo'
          Title.Caption = 'C'#243'digo'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Nome'
          Width = 293
          Visible = True
        end>
    end
    object BtnSair: TBitBtn
      Left = 208
      Top = 12
      Width = 75
      Height = 22
      Caption = 'Sair'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BtnSairClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
    object BtnEnviar: TBitBtn
      Left = 285
      Top = 12
      Width = 75
      Height = 22
      Caption = 'Enviar'
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = BtnEnviarClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333FF3333333333333003333
        3333333333773FF3333333333309003333333333337F773FF333333333099900
        33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
        99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
        33333333337F3F77333333333309003333333333337F77333333333333003333
        3333333333773333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object pnltela: TPanel [4]
    Left = 544
    Top = -16
    Width = 586
    Height = 432
    BevelInner = bvRaised
    BevelWidth = 2
    BorderWidth = 1
    TabOrder = 4
    Visible = False
    object Bevel1: TBevel
      Left = 5
      Top = 5
      Width = 576
      Height = 52
      Align = alTop
      Shape = bsFrame
    end
    object RxLabel1: TRxLabel
      Left = 16
      Top = 16
      Width = 284
      Height = 29
      Caption = 'Relat'#243'rio Demonstrativo'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 5
      Top = 57
      Width = 576
      Height = 312
      Align = alTop
      Color = clInfoBk
      DataSource = DsRelatorio
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Historico'
          Title.Caption = 'Hist'#243'rico'
          Width = 73
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Descricao'
          Title.Caption = 'Descri'#231#227'o'
          Width = 315
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DataMovim'
          Title.Caption = 'Data Movimento'
          Width = 81
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Valor'
          Width = 70
          Visible = True
        end>
    end
    object Edit: TEdit
      Left = 16
      Top = 384
      Width = 273
      Height = 32
      BorderStyle = bsNone
      Color = clInfoBk
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      Text = 'Valor Total ==========>>>'
    end
    object BFechar: TBitBtn
      Left = 456
      Top = 385
      Width = 89
      Height = 25
      Caption = 'Fechar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BFecharClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
    object EdtTotal: TCurrencyEdit
      Left = 286
      Top = 384
      Width = 155
      Height = 32
      TabStop = False
      AutoSelect = False
      AutoSize = False
      BorderStyle = bsNone
      Color = clInfoBk
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
    end
  end
  inherited Timer1: TTimer
    Left = 476
  end
  inherited RDP: TRDprint
    OnNewPage = RDPNewPage
  end
  object CdsEmpresa: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 440
    Top = 8
    object CdsEmpresaCodigo: TStringField
      FieldName = 'Codigo'
      Size = 3
    end
    object CdsEmpresaNome: TStringField
      FieldName = 'Nome'
      Size = 40
    end
  end
  object DsEmpresa: TDataSource
    AutoEdit = False
    DataSet = CdsEmpresa
    Left = 412
    Top = 8
  end
  object DsRelatorio: TDataSource
    AutoEdit = False
    DataSet = CdsRelatorio
    Left = 340
    Top = 8
  end
  object CdsRelatorio: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 368
    Top = 8
    object CdsRelatorioHistorico: TStringField
      DisplayWidth = 10
      FieldName = 'Historico'
      Size = 10
    end
    object CdsRelatorioDescricao: TStringField
      FieldName = 'Descricao'
      Size = 40
    end
    object CdsRelatorioDataMovim: TDateField
      FieldName = 'DataMovim'
    end
    object CdsRelatorioValor: TCurrencyField
      FieldName = 'Valor'
    end
  end
end
